home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 4
/
FM Towns Free Software Collection 4 - Disc 1.iso
/
data
/
games
/
ab2high.bas
next >
Wrap
BASIC Source File
|
1991-10-18
|
554b
|
22 lines
1000 '
1010 ' アフターバーナー高速化
1020 '
1030 CLS
1040 PRINT "***AFTER BURNER":PRINT
1050 PRINT "ディスクをAドライブに入れて何かキーを押して下さい"
1060 WHILE INKEY$="":WEND
1070 '
1080 OPEN "R",#1,"a:(1)\AB2.EXP"
1090 FIELD #1,1 AS DT$
1100 READ NUM
1110 READ D$:OFST=VAL("&H"+D$)
1120 FOR J=1 TO NUM
1130 READ D$:DAT=VAL("&H"+D$)
1140 LSET DT$=CHR$(DAT MOD 256):PUT #1,OFST+1:OFST=OFST+1
1150 NEXT
1160 CLOSE
1170 END
1180 '
1190 DATA 18,3E4F
1200 DATA 66,B9,E3,00,68,10,01,00,00,0F,A1,64,FF,1D,60,00,00,00